    

   
     
     

 1 -     
 2 -    TEXT TOOL                TEXT OPTION           WINDOW    PANEL SET    DEFALUT LAYOUT
 3 -   TEXT OPTION    TEXT OPTION          INPUT TEXT        MULTI LINE                 TEXTOPTION  VARIBLE    TEXTFIELD2    TF 
 4 -     WINDOW      COMMON LIBRARIES    BUTTONS
 5 -       Library Buttons          
 6 -               action
 7 -   basic action   object actioin        (   6)
 8 -  basic action   FScommand
 9 -          test        tf     expression

      swf   vb_fla.swf


    

  components   project   ctrl + t   shokwave flash

  shock wave player       
               
  ShockwaveFlash1    Wmode      Transparent
     ShockwaveFlash1   custom      
window mode  Transparent

    


Private Sub Form_Load()
ShockwaveFlash1.Movie = App.Path & "\vb_fla.swf" 
'      
End Sub

Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)
if Trim(command) = "show_message" then MsgBox args
'      command       
'  trim                   
End Sub


      